home *** CD-ROM | disk | FTP | other *** search
/ Slide Magazine: Scandal / Slide Magazine: Scandal.iso / scandal / scn01.mmm / meta.txt
Encoding:
Text File  |  1994-11-14  |  27.8 KB  |  282 lines

  1. Name
  2. ----
  3. SCN01SCNWIN:SCNWIN:
  4.  
  5. stxt
  6. ----
  7. DUMMY
  8. DUMMY
  9. DUMMY
  10. DUMMY
  11. DUMMY
  12. DUMMY
  13. DUMMY
  14. Please wait a moment ...
  15. ENDSCANDAL
  16. 44,44,45
  17. 1,2,3,4,5,6,7,89,10,11,12,13,14,15,1617,18,19,20,21,22,23,024,25,26,27,28,29,30,031,32,33,34,35,36,37,038,39,40,41,42,43,44,0
  18. 1,2,3,4,5,6,7,89,10,11,12,13,14,15,1617,18,19,20,21,22,23,024,25,26,27,28,29,30,031,32,33,34,35,36,37,038,39,40,41,42,43,44,0
  19. 1,2,3,4,5,6,7,89,10,11,12,13,14,15,1617,18,19,20,21,22,23,2425,26,27,28,29,30,31,032,33,34,35,36,37,38,039,40,41,42,43,44,45,0
  20. 3,2,2,3,2,3,2,1,1,2,2,3,2,2,2,2,3,2,2,2,1,2,3,2,1,2,2,2,2,2,3,3,2,2,2,3,3,1,2,2,3,3,2,3
  21. 2,3,2,3,2,2,3,2,2,2,1,2,2,2,2,1,3,3,2,2,3,2,2,2,3,2,2,3,2,2,2,2,2,2,2,2,2,2,1,2,1,2,3,3
  22. 3,2,3,3,3,2,2,2,3,3,2,2,2,2,2,2,3,3,2,2,3,2,3,2,2,2,2,2,3,2,2,3,3,2,3,3,3,2,3,3,2,2,1,3,3
  23. 35,66,38,55,33,46,65,37,34,5645,36,8,52,60,12,10,73,4,681,29,61,79,31,25,49,72,17,546,40,43,80,77,23,19,47,2,2775,58,71,15,69,22,9,74,26,4120,5,63,50,11,78,30,51,14,537,70,21,67,3,28,76,42,39,1662,13,59,64,32,18,44,57,24,48
  24. 1,602,1803,3004,4205,6006,9007,10208,12009,1500
  25. 1,3,3,2,2,2,2,1,2,2,2,2,2,3,3,2,2,1,2,3,3,3,2,3,3,3,3,2,3,2,2,2,3,3,2,3,2,1,3
  26. 3,2,3,2,2,2,3,2,2,1,3,2,2,3,2,2,1,3,1,2,2,3,3,1,3,3,3,3,3,2,1,3,2,2,1,2,3,2,2
  27. 1,2,3,4,5,6,7,8,9,10,11,12,13,14,0,15,16,17,18,0
  28. -- Initialize of SCANDALmacro initRCP    global gDisc    global gFulCol    global gPathPict    global gPathItem    global gPathText    global gPathAiff    global gBGMnum    global gPHTnum    global gSLDtim    global gSLDmode    global gPictNum    put 1 into gDisc        if (envCheck()=FALSE) then        quit    end if    cursor 4    put "SCNWIN:PHOTO8:" into gPathPict    put "SCNWIN:ITEM:" into gPathItem    put "SCNWIN:TEXT:" into gPathText    put "SCNWIN:AIFF:" into gPathAiff    if (gFulCol = 1) then        put "SCNWIN:PHOTO24:" into gPathPict    end if        put 1 into gPHTnum    put 0 into gSLDmode    put item 2 of ( line 3 of field "TimeList" ) into vTim    put value(vTim) into gSLDtim     set the soundEnabled to TRUE    aiffSound(0)    aiffSound(1)--    set the exitLock to TRUE    set the keyDownScript to "keyBoard()"--    getPicture( the number of cast "BCK.PICT", gPathItem & "BG000.DIB")    upDateStage    go to frame "OPN00"-- +++++++++++++++++++++++++++++++++ environment checkermacro envCheck    global gFulCol    if (the colorDepth < 8 ) then        alert "256 Color mode is required"        return FALSE    end if    if (the colorDepth > 8 ) then        put 1 into gFulCol    else        put 0 into gFulCol    end if    return TRUE-- ++++++++++++++++++++++++++++++++ KEY BOARD handlermacro keyBoard    global gSLDtim    global gBgmNum    if (the key = "Q" AND commandDown()) then        termRCP()    end if    if (the key = "S" AND commandDown()) then        if (the soundEnabled = TRUE) then            aiffSound(0)            set the soundEnabled to FALSE        else            set the soundEnabled to TRUE            aiffSound(gBgmNum)        end if    end if    put (the key) into vKeyin    if (vKeyin >= "1" AND vKeyin <= "9") then        put value(vKeyin) into vNum        put item 2 of (line vNum of field "TimeList") into vTim        put value(vTim) into gSLDtim    end if-- ++++++++++++++++++++++++++++++++ terminate Gingermacro termRCP    set the keyDownScript to EMPTY    go to frame "ENDING"    upDateStage    quit
  29. -- Standard Services-- ++++++++++++++++++++++++++++++++ clear Picture of cast vCastmacro clrPicture vCast    set the picture of cast vCast to the picture of cast "EmptyPict"-- ++++++++++++++++++++++++++++++++ getText from fileNamemacro getText fileName    put FileIO(mNew,"read",fileName) into vText    if objectp(vText) then        put vText(mReadFile) into retText        vText(mDispose)    else        put "" into retText    end if    return (retText)-- ++++++++++++++++++++++++++++++++ getPicture from fileName to vCastmacro getPicture vCast, fileName    if (the name of cast vCast <> "") then        set nameOfCast to the name of cast vCast    else        set nameOfCast to ""    end if    put FileIO(mNew,"read",fileName) into vPict    if (not objectp(vPict)) then        alert "Error(getPicture):"&fileName&RETURN&"code:"&vPict        return (FALSE)    end if    set the picture of cast vCast to vPict(mReadPict)    if (the size of cast vCast = 0) then        clrPicture(vCast)        set the name of cast vCast to nameOfCast        unload        unloadCast        set the picture of cast vCast to vPict(mReadPict)        if (the size of cast vCast = 0) then            clrPicture(vCast)            set the name of cast vCast to nameOfCast            vPict(mDispose)            alert "Error(getPicture):"&fileName&RETURN&"code:"&vPict&RETURN&"Not enough Memory"            return (FALSE)        end if    end if    vPict(mDispose)    return(TRUE)    -- ++++++++++++++++++++++++++++++++ set vSprite as Pict for vCast(BitMap) with vInkmacro setPictSprite vSprite, vCast, vInk    if the type of sprite vSprite = 0 then set the type of sprite  vSprite to 1    puppetSprite vSprite ,TRUE    set the castNum of sprite vSprite to the number of cast vCast    set the ink of sprite vSprite to vInk-- ++++++++++++++++++++++++++++++++ set vSprite as Text vCast(Text) with vInk locate vH vVmacro setTextSprite vSprite, vCast, vInk, vH, vV    if the type of sprite vSprite = 0 then set the type of sprite  vSprite to 7    puppetSprite vSprite ,TRUE    set the castNum of sprite vSprite to the number of cast vCast    set the ink of sprite vSprite to vInk    set the locH of sprite vSprite to vH    set the locV of sprite vSprite to vV-- ++++++++++++++++++++++++++++++++ control buttonmacro pushButton com    put item 1 of the name of cast (the castNum of sprite clickOn()) into cName    repeat while stilldown()        if rollover(clickOn()) then            set the castNum of sprite clickOn() = the number of cast (cName&",DN")        else            set the castNum of sprite clickOn() = the number of cast (cName&",UP")        end if        upDateStage    end repeat    set the castNum of sprite clickOn() = the number of cast (cName&",UP")    updateStage    if rollOver(clickOn()) then do com-- ++++++++++++++++++++++++++++++++ QTmovie rewind to Top buttonmacro qtTop vSprite    set the movieTime of sprite vSprite to 0    set the movieRate of sprite vSprite to 0    set the startTime of sprite vSprite to 0    upDateStage-- ++++++++++++++++++++++++++++++++ QTmovie rewind to vTop buttonmacro XqtTop vSprite, vTop    set the movieTime of sprite vSprite to vTop    set the movieRate of sprite vSprite to 0    set the startTime of sprite vSprite to vTop    upDateStage-- ++++++++++++++++++++++++++++++++ QTmovie rewind(10sec) buttonmacro qtRew vSprite    put the movieTime of sprite vSprite into vTime    if (vTime > 600) then        put (vTime - 600) into vTime    else        put 0 into vTime    end if    set the movieTime of sprite vSprite to vTime    upDateStage-- ++++++++++++++++++++++++++++++++ QTmovie rewind(10sec but limit) buttonmacro XqtRew vSprite, vTop    put the movieTime of sprite vSprite into xTime    put (xTime - vTop) into vTime    if (vTime > 600) then        put (xTime - 600) into vTime    else        put vTop into vTime    end if    set the movieTime of sprite vSprite to vTime    upDateStage-- ++++++++++++++++++++++++++++++++ QTmovie forward(10sec) buttonmacro qtFwd vSprite    put the movieTime of sprite vSprite into vTime    put (the duration of cast (the castNum of sprite vSprite)) into vLen    if ((vLen - vTime)>600) then        put (vTime + 600) into vTime    else        put (vLen - 1) into vTime    end if    set the movieTime of sprite vSprite to vTime    upDateStage-- ++++++++++++++++++++++++++++++++ QTmovie forward(10sec but limit) buttonmacro XqtFwd vSprite, vEnd    put the movieTime of sprite vSprite into vTime    if ((vEnd - vTime)>600) then        put (vTime + 600) into vTime    else        put vEnd into vTime    end if    set the movieTime of sprite vSprite to vTime    upDateStage-- ++++++++++++++++++++++++++++++++ QTmovie pause buttonmacro qtPau vSprite    global gAviTime    if (the movieRate of sprite vSprite = 0) then        if (the movieTime of sprite vSprite > 0) then            put the movieTime of sprite vSprite into gAviTime            set the startTime of sprite vSprite to gAviTime            set the movieRate of sprite vSprite to 1        end if    else        set the movieRate of sprite vSprite to 0    end if    upDateStage-- ++++++++++++++++++++++++++++++++ QTmovie Stop buttonmacro qtStp vSprite    set the movieRate of sprite vSprite to 0    upDateStage-- ++++++++++++++++++++++++++++++++ QTmovie play buttonmacro qtPly vSprite    global gAviTime    put the movieTime of sprite vSprite into gAviTime    set the startTime of sprite vSprite to gAviTime    set the movieRate of sprite vSprite to 1    upDateStage-- ++++++++++++++++++++++++++++++++ QTmovie yalp(reverse play) buttonmacro qtYlp vSprite    global gAviTime    put the movieTime of sprite vSprite into gAviTime    set the startTime of sprite vSprite to gAviTime    set the movieRate of sprite vSprite to -1    updateStage-- ++++++++++++++++++++++++++++++++ QTmovie sound togglemacro qtSoundToggle    if the sound of cast (the castNum of sprite clickOn()) = TRUE then        set the sound of cast (the castNum of sprite clickOn()) = FALSE    else        set the sound of cast (the castNum of sprite clickOn()) = TRUE    end if -- ++++++++++++++++++++++++++++++++ AIFF sound file control in soundchannel 2macro aiffSound vNum    global gPathAiff    global gBgmNum    if the soundEnabled = FALSE then        return    end if    if vNum = 0 then            if soundBusy(1) then                sound stop 1            end if        put 0 into gBgmNum    else        if soundBusy(1) AND gBgmNum = vNum then            return        end if        sound playFile 1, gPathAiff & "BGM0" & string(vNum) & ".AIF"        put vNum into gBgmNum    end if-- Fade out other channelmacro aiffFadeOut vNum    repeat with n = 1 to 4        if  (vNum <> n) then            if soundBusy(n) then                sound fadeOut n, 60            end if        end if    end repeat-- wait click (or vTim seconds)macro clickWait vTim    startTimer    repeat while TRUE        if (the timer > (vTim*60)) then            exit repeat        end if        if (the mouseDown) then return(FALSE)    end repeat    return(TRUE)--+++++++++++++++++++++++++++++++++ Palette change at black framemacro chgScene vPal, vFrm, vBackName    global gFulCol    if (gFulCol = 0) then        go to frame "PALCHN"    end if    puppetPalette vPal    puppetTransition 23    upDateStage    getPicture(the number of cast "BCK.PICT", vBackName)    puppetTransition 23    go to frame vFrm    upDateStage
  30. -- For HOME MENU-- ++++++++++++++++++++++++++++++++ MENU TITLEmacro openHOME    global gPathItem    aiffSound(1)    chgScene("PL-OPN", the frame + 1, gPathItem & "BG000.DIB")    repeat with n = 1 to 24        puppetSprite n, FALSE    end repeat    upDateStage    cursor -1-- ++++++++++++++++++++++++++++++++ branch by vBox (0 = quit)macro HomeBranch vBox    global gPHTnum    if (vBox = 1) then        cursor 4        put 1 into gPHTnum        go to frame "PHT00"    end if     if (vBox = 2) then        cursor 4        put 2 into gPHTnum        go to frame "PHT00"    end if    if (vBox = 3) then        cursor 4        put 3 into gPHTnum        go to frame "PHT00"    end if   if (vBox = 4) then        cursor 4        go to frame "MVB00"    end if   if (vBox = 0) then        termRCP()    end if
  31. -- For Photo Box-- ++++++++++++++++++++++++++++++++ initialize of Photo Box (vBox)macro initPHT    global gPathItem    global gPHTnum    global gPictNum    global gSLDmode    global gPictMax    cursor 4    aiffSound(2)    put 0 into gPictNum    put 0 into gSLDmode    put item gPHTnum of field "PictMax" into vMax    put value(vMax) into gPictMax    put gPHTnum into vBox    put "PL-" & string(vBox) & "00" into vPL    chgScene(vPL, "PHT01", gPathItem & "BG" & string(vBox) & "01.DIB")    puppetSprite 19,TRUE    set the visibility of sprite 19 to FALSE    puppetSprite 20,TRUE    set the visibility of sprite 20 to FALSE    dispPANEL()    upDateStage    cursor -1-- ++++++++++++++++++++++++++++++++ termination of Personal Boxmacro termPHT mode    global gPHTnum    if (gPHTnum = mode) then        return        exit    end if    cursor 4    erasePictPHT()    erasePANEL()    repeat with n = 2 to 24        puppetSprite n, FALSE    end repeat    clrPicture( "PHT.PICT" )    clrPicture( "PHT.PANEL" )        puppetTransition 23    upDateStage    if (mode = -1) then        go to frame "OPN01"        exit    end if    if (mode = 4) then        go to frame "MVB00"        exit    end if    put mode into gPHTnum    go to frame "PHT00"-- ++++++++++++++++++++++++++++++++ return position of pictureMatrix(7 * 6)macro nOfMatrix    put the left of sprite clickOn() into L    put the top of sprite clickOn() into T    put (mouseH() - L) / 66 into hBlock    put (mouseV() - T) / 64 into vBlock    put ((vBlock * 8) + hBlock) + 1 into vMat    return(vMat)-- +++++++++++++++++++++++++++++++ return sequential number of picture from positionmacro seqOfMat vBox, vMat    put ((vMat -1) / 8) + 1 into vL    put ((vMat -1) mod 8) + 1 into vC    put "PictSeq" & string(vBox) into vName    put item vC of (line vL of field vName) into vZ    put value(vZ) into vSeq    return(vSeq)-- +++++++++++++++++++++++++++++++ return type of picture from numbermacro typOfMat vBox, vSeq    global gPicBox    put "PictTyp" & string(vBox) into vName    put item vSeq of field vName into vZ    put value(vZ) into vTyp    put vTyp into gPicBox    return(vTyp)-- ++++++++++++++++++++++++++++++++ get Picture & Display vMat of vBoxmacro dispPictPHT vMat    global gPicBox    global gPathPict    global gPHTnum    global gPictNum    if (vMat = 0) then        return    end if    put seqOfMat(gPHTnum, vMat) into vSeq    if (vSeq = 0) then        return    end if    put typOfMat(gPHTnum, vSeq) into vTyp    if (vTyp = 0) then        return    end if    if (vSeq < 10) then        put gPathPict & "P" & string(gPHTnum) & "0" & string(vSeq) into vName        put "PL-" & string(gPHTnum) & "0" & string(vSeq) into vPAL    else        put gPathPict & "P" & string(gPHTnum) &  string(vSeq) into vName        put "PL-" & string(gPHTnum) & string(vSeq) into vPAL    end if    put  vSeq into gPictNum    cursor 4    erasePANEL()--    go to frame "PHT02"    puppetSprite 20,TRUE    spriteBox 20, 640, 480, 640, 480    set the visibility of sprite 20 to FALSE    upDateStage    puppetPalette vPAL    upDateStage    getPicture(the number of cast "PHT.PICT", vName & ".DIB")    setPictSprite(20,"PHT.PICT",0)    if (gPicBox = 1) then        spriteBox 20, 64, 24, 64 + 432, 24 + 432    end if     if (gPicBox = 2) then        spriteBox 20, 48, 66, 48 + 464, 66 + 348    end if     if (gPicBox = 3) then        spriteBox 20, 106, 8, 106 + 348, 8 + 464    end if    set the visibility of sprite 20 to TRUE   cursor -1    upDateStage-- ++++++++++++++++++++++++++++++++ erase Picture from stagemacro erasePictPHT    global gPathItem    global gPHTnum    global gPictNum    global gSLDmode    put 0 into gPictNum    put 0 into gSLDmode    cursor 4    spriteBox 20, 640, 480, 640, 480    set the visibility of sprite 20 to FALSE    clrPicture("PHT.PICT")    puppetSprite 20, FALSE    upDateStage    dispPANEL()    cursor -1    upDateStage-- ++++++++++++++++++++++++++++++++ get PANEL Picturemacro dispPANEL    global gPHTnum    global gPathItem    put gPathItem & "PANEL" & string(gPHTnum)  into vName    put "PL-" & string(gPHTnum) & "00" into vPAL    cursor 4    puppetPalette vPAL--    go to frame "PHT01"    puppetSprite 19,TRUE    spriteBox 19, 640, 480, 640, 480    set the visibility of sprite 19 to FALSE    upDateStage    getPicture(the number of cast "PHT.PANEL", vName & ".DIB")    setPictSprite(19,"PHT.PANEL",0)    spriteBox 19, 16, 80, 16 + 528, 80 + 384    set the visibility of sprite 19 to TRUE   cursor -1    upDateStage-- ++++++++++++++++++++++++++++++++ erase PANEL from stagemacro erasePANEL    global gPathItem    global gPHTnum    global gPictNum    global gSLDmode    cursor 4    spriteBox 19, 640, 480, 640, 480    set the visibility of sprite 19 to FALSE    clrPicture("PHT.PANEL")    puppetSprite 19, FALSE    upDateStage    cursor -1    upDateStage-- ++++++++++++++++++++++++++++++++ start SLIDE SHOW modemacro startSLD    global gSLDmode    global gSLDtim    put 1 into gSLDmode    set the timer to gSLDtim + 1    dispNextPHT()-- ++++++++++++++++++++++++++++++++ stop SLIDE SHOW modemacro stopSLD    global gSLDmode    global gSLDtim    put 0 into gSLDmode-- ++++++++++++++++++++++++++++++++ get next Picture & Display in SLIDE SHOW modemacro dispNextPHT    global gPicBox    global gPathPict    global gPHTnum    global gPictNum    global gPictMax    global gSLDmode    global gSLDtim    if (gSLDmode = 0) then        return    end if    if (the timer < gSLDtim) then        return    end if    put (gPictNum + 1) into vSeq    if (vSeq < 1) then        put 1 into vSeq    end if    if (vSeq > gPictMax) then        put 1 into vSeq    end if    put vSeq into gPictNum    if (vSeq = 0) then        return    end if    put typOfMat(gPHTnum, vSeq) into vTyp    if (vTyp = 0) then        return    end if    if (vSeq < 10) then        put gPathPict & "P" & string(gPHTnum) & "0" & string(vSeq) into vName        put "PL-" & string(gPHTnum) & "0" & string(vSeq) into vPAL    else        put gPathPict & "P" & string(gPHTnum) &  string(vSeq) into vName        put "PL-" & string(gPHTnum) & string(vSeq) into vPAL    end if    cursor 4    erasePANEL()    puppetSprite 20,TRUE    spriteBox 20, 640, 480, 640, 480    set the visibility of sprite 20 to FALSE    upDateStage    puppetPalette vPAL    upDateStage    getPicture(the number of cast "PHT.PICT", vName & ".DIB")    setPictSprite(20,"PHT.PICT",0)    if (gPicBox = 1) then        spriteBox 20, 64, 24, 64 + 432, 24 + 432    end if     if (gPicBox = 2) then        spriteBox 20, 48, 66, 48 + 464, 66 + 348    end if     if (gPicBox = 3) then        spriteBox 20, 106, 8, 106 + 348, 8 + 464    end if    set the visibility of sprite 20 to TRUE    startTimer    cursor -1    upDateStage
  32. -- For Movie Box-- ++++++++++++++++++++++++++++++++ initialize of Movie Box (vBox)macro initMVB    global gPathItem    cursor 4    aiffSound(3)    chgScene("PL-400", the frame + 1, gPathItem & "BG400.DIB")    upDateStage    cursor -1-- ++++++++++++++++++++++++++++++++ termination of Movie Boxmacro termMVB mode    global gPHTnum    cursor 4    repeat with n = 2 to 24        puppetSprite n, FALSE    end repeat    puppetTransition 23    upDateStage    if (mode = -1) then        go to frame "OPN01"        exit    end if    put mode into gPHTnum    go to frame "PHT00"-- ++++++++++++++++++++++++++++++++ termination of Movie Box (MovieAppear mode)macro termMVX mode    global gPHTnum    cursor 4    qtStp(21)    repeat with n = 2 to 24        puppetSprite n, FALSE    end repeat    puppetTransition 23    upDateStage    if (mode = -1) then        go to frame "OPN01"        exit    end if    put mode into gPHTnum    go to frame "PHT00"-- ++++++++++++++++++++++++++++++++ return position of MovieMatrix(3 * 3)macro nOfMatrix2    put the left of sprite clickOn() into L    put the top of sprite clickOn() into T    put (mouseH() - L) / 104 into hBlock    put (mouseV() - T) / 96 into vBlock    put ((vBlock * 5) + hBlock) + 1 into vMat    return(vMat)
  33. -- For Demo-- ++++++++++++++++++++++++++++++++ DeMoInitmacro initDemo    global gDSeq    put 1 into gDSeq    cursor -1    upDateStage-- ++++++++++++++++++++++++++++++++ Disp Piecemacro dispPiece    global gDSeq    global gPathItem    put ((gDseq - 1) / 10) into vL    put ((gDseq - 1) mod 10) into vC    put item (vC +1) of (line (vL + 1) of field "DemoSeq") into vZ    put value(vZ) into vSeq    put ((vSeq - 1) / 10) into vY    put ((vSeq - 1) mod 10) into vX    if (vSeq < 10) then        put "0" & string(vSeq) into vN    else        put string(vSeq) into vN    end if    puppetSprite 20, TRUE    spriteBox 20, 640,480,640,480    upDateStage    getPicture(the number of cast "OPN.PIE", gPathItem & "PIECE:P" & vN & ".DIB")    setPictSprite(20, "OPN.PIE", 0)    spriteBox 20, (vX * 64), (vY * 60), (vX * 64) + 64, (vY * 60) + 60    set the trails of sprite 20 to TRUE    upDateStage    put gDseq + 1 into gDseq    if (gDseq > 80) then        termDemo()    end if-- ++++++++++++++++++++++++++++++++ DeMoTermmacro termDemo    global gPathItem    cursor 4        spriteBox 20, 640,480,640,480    set the visibility of sprite 20 to FALSE    clrPicture("OPN.PIE")    puppetSprite 20,FALSE    upDateStage    getPicture(the number of cast "BCK.PICT", gPathItem & "BGOPN.DIB")    puppetTransition 23    go to frame "OPN01"
  34. 1,2,3,4,5,6,78,9,10,11,12,13,014,15,16,17,18,19,020,21,22,23,24,25,026,27,28,29,30,31,3233,34,35,36,37,38,39
  35. 1,2,3,4,5,6,78,9,10,11,12,13,1415,16,17,18,19,2021,22,23,24,25,26,2728,29,30,31,32,33,034,35,36,37,38,39,0
  36. -- For MVB Movie-- ++++++++++++++++++++++++++++++++ open Movie in Movie Boxmacro qtDispMVB  vNum    global gDisc    global gPathItem    put item vNum of field "MovSeq" into vZ    put value(vZ) into vSeq    if (vSeq = 0) then        return    end if    cursor 4    put vSeq into vNum    put "PL-40" & string(vNum) into vPAL    if (vNum <10) then        put "0" & string(vNum) into vBN    else        put string(vNum) into vBN    end if    put "MVB0" & string(vNum) into vFL    chgScene("PL-CINEPAK" , "MVB01", gPathItem & "BG4" & vBN & ".DIB")    aiffSound(0)    puppetSprite 21,TRUE    set the visibility of sprite 21 to FALSE    puppetTransition 23    upDateStage    set the type of sprite 21 to 60    put the number of cast ("MOV" & vBN) into vQtNum    set the castNum of sprite 21 to vQtNum    set the sound of cast vQtNum to FALSE    set the visibility of sprite 21 to TRUE    upDateStage    qtTop(21)    set the sound of cast vQtNum to TRUE    upDateStage    cursor -1-- ++++++++++++++++++++++++++++++++ close Movie in Movie Boxmacro qtHideMVB    global gPathItem    cursor 4    qtStp(21)    puppetSprite 21,FALSE    puppetTransition 23    upDateStage    aiffSound(3)    go to frame "MVB00"
  37.  
  38. Script Channel Commands
  39. --------------------
  40. initRCP()initDemo()dispPiece()aiffSound(1)go to the frameopenHOME()aiffSound(1)go to the frameinitPHT()initMVB()aiffSound(3)go to the frameaiffSound(2)dispNextPHT()go to the framego to the frame
  41.  
  42. vwci
  43. ----
  44. 1025:     EmptyPict
  45. 1026: BCK.PICT
  46. 1027: OPN.PIE
  47. 1028: on mouseUp  termDemo()end mouseUpOPN.MAT0
  48. 1029: on mouseUp  HomeBranch(1)end mouseUpOPN.MAT1
  49. 1030: on mouseUp  HomeBranch(2)end mouseUpOPN.MAT2
  50. 1031: on mouseUp  HomeBranch(3)end mouseUpOPN.MAT3
  51. 1032: on mouseUp  HomeBranch(4)end mouseUpOPN.MAT4
  52. 1033: on mouseUp  HomeBranch(5)end mouseUpOPN.MAT5
  53. 1034: on mouseUp  HomeBranch(6)end mouseUpOPN.MAT6
  54. 1035: on mouseUp  HomeBranch(0)end mouseUpOPN.MAT7
  55. 1036: on mouseUp  termPHT(4)end mouseUpPHT.MAT4
  56. 1037: on mouseUp  termPHT(5)end mouseUpPHT.MAT5
  57. 1038: MVB.MOV
  58. 1041: on mouseUp  termPHT(-1)end mouseUpPHT.HOM
  59. 1042: on mouseUp  termPHT(1)end mouseUpPHT.MAT1
  60. 1043: on mouseUp  termPHT(2)end mouseUpPHT.MAT2
  61. 1044: on mouseUp  termPHT(3)end mouseUpPHT.MAT3
  62. 1045: on mouseUp  termPHT(4)end mouseUpPHT.MAT6
  63. 1046: on mouseUp  startSLD()end mouseUpPHT.SLD
  64. 1047: on mouseUp  stopSLD()end mouseUpPHT.STP
  65. 1048:     PHT.PANEL
  66. 1049: on mouseUp  dispPictPHT(nOfMatrix())end mouseUpPHT.MAT0
  67. 1050: on mouseUp  erasePictPHT()end mouseUpPHT.PICT
  68. 1051: on mouseUp  termMVB(4)end mouseUpMVB.MAT4
  69. 1052: on mouseUp  termMVB(5)end mouseUpMVB.MAT5
  70. 1057: on mouseUp  termMVB(-1)end mouseUpMVB.HOM
  71. 1058: on mouseUp  termMVB(1)end mouseUpMVB.MAT1
  72. 1059: on mouseUp  termMVB(2)end mouseUpMVB.MAT2
  73. 1060: on mouseUp  termMVB(3)end mouseUpMVB.MAT3
  74. 1061: on mouseUp  qtDispMVB(nOfMatrix2())end mouseUpMVB.MAT0
  75. 1062: on mouseUp  termMVX(4)end mouseUpMVX.MAT4
  76. 1063: on mouseUp  termMVX(5)end mouseUpMVX.MAT5
  77. 1065: on mouseUp  termMVX(-1)end mouseUpMVX.HOM
  78. 1066: on mouseUp  termMVX(1)end mouseUpMVX.MAT1
  79. 1067: on mouseUp  termMVX(2)end mouseUpMVX.MAT2
  80. 1068: on mouseUp  termMVX(3)end mouseUpMVX.MAT3
  81. 1069: on mouseUp  qtTop(21)end mouseUp
  82. MVB.TOP,UP
  83. 1070: 
  84. MVB.TOP,DN
  85. 1071: on mouseUp  qtStp(21)end mouseUp
  86. MVB.PAU,UP
  87. 1072: 
  88. MVB.PAU,DN
  89. 1073: on mouseUp  qtPly(21)end mouseUp
  90. MVB.PLY,UP
  91. 1074: 
  92. MVB.PLY,DN
  93. 1075: on mouseUp  qtRew(21)end mouseUp
  94. MVB.REW,UP
  95. 1076: 
  96. MVB.REW,DN
  97. 1077: on mouseUp  qtHideMVB()end mouseUp
  98. MVB.CLS,UP
  99. 1078: 
  100. MVB.CLS,DN
  101. 1079: on mouseUp  qtFwd(21)end mouseUp
  102. MVB.FWD,UP
  103. 1080: 
  104. MVB.FWD,DN
  105. 1085: PictMax
  106. 1086: PictSeq1
  107. 1087: PictSeq2
  108. 1088: PictSeq3
  109. 1089: PictTyp1
  110. 1090: PictTyp2
  111. 1091: PictTyp3
  112. 1092: DemoSeq
  113. 1093: TimeList
  114. 1094: PictTyp4
  115. 1095: PictTyp5
  116. 1096: MovSeq
  117. 1105: PictSeq4
  118. 1106: PictSeq5
  119. 1153: MOV01 SCNWIN:AVI:    MOV01.AVIMooV
  120. 1154: MOV02 SCNWIN:AVI:    MOV02.AVIMooV
  121. 1155: MOV03 SCNWIN:AVI:    MOV03.AVIMooV
  122. 1156: MOV04 SCNWIN:AVI:    MOV04.AVIMooV
  123. 1157: MOV05 SCNWIN:AVI:    MOV05.AVIMooV
  124. 1158: MOV06 SCNWIN:AVI:    MOV06.AVIMooV
  125. 1159: MOV07 SCNWIN:AVI:    MOV07.AVIMooV
  126. 1160: MOV08 SCNWIN:AVI:    MOV08.AVIMooV
  127. 1161: MOV09 SCNWIN:AVI:    MOV09.AVIMooV
  128. 1162: MOV10 SCNWIN:AVI:    MOV10.AVIMooV
  129. 1163: MOV11 SCNWIN:AVI:    MOV11.AVIMooV
  130. 1164: MOV12 SCNWIN:AVI:    MOV12.AVIMooV
  131. 1165: MOV13 SCNWIN:AVI:    MOV13.AVIMooV
  132. 1166: MOV14 SCNWIN:AVI:    MOV14.AVIMooV
  133. 1167: MOV15 SCNWIN:AVI:    MOV15.AVIMooV
  134. 1168: MOV16 SCNWIN:AVI:    MOV16.AVIMooV
  135. 1169: MOV17 SCNWIN:AVI:    MOV17.AVIMooV
  136. 1170: MOV18 SCNWIN:AVI:    MOV18.AVIMooV
  137. 1217: PL-OPN
  138. 1218: PL-100
  139. 1219: PL-200
  140. 1220: PL-300
  141. 1221: PL-400
  142. 1224: 
  143. PL-CINEPAK
  144. 1225: PL-101
  145. 1226: PL-102
  146. 1227: PL-103
  147. 1228: PL-104
  148. 1229: PL-105
  149. 1230: PL-106
  150. 1231: PL-107
  151. 1232: PL-108
  152. 1233: PL-109
  153. 1234: PL-110
  154. 1235: PL-111
  155. 1236: PL-112
  156. 1237: PL-113
  157. 1238: PL-114
  158. 1239: PL-115
  159. 1240: PL-116
  160. 1241: PL-117
  161. 1242: PL-118
  162. 1243: PL-119
  163. 1244: PL-120
  164. 1245: PL-121
  165. 1246: PL-122
  166. 1247: PL-123
  167. 1248: PL-124
  168. 1249: PL-125
  169. 1250: PL-126
  170. 1251: PL-127
  171. 1252: PL-128
  172. 1253: PL-129
  173. 1254: PL-130
  174. 1255: PL-131
  175. 1256: PL-132
  176. 1257: PL-133
  177. 1258: PL-134
  178. 1259: PL-135
  179. 1260: PL-136
  180. 1261: PL-137
  181. 1262: PL-138
  182. 1263: PL-139
  183. 1264: PL-140
  184. 1265: PL-141
  185. 1266: PL-142
  186. 1267: PL-143
  187. 1268: PL-144
  188. 1273: PL-201
  189. 1274: PL-202
  190. 1275: PL-203
  191. 1276: PL-204
  192. 1277: PL-205
  193. 1278: PL-206
  194. 1279: PL-207
  195. 1280: PL-208
  196. 1281: PL-209
  197. 1282: PL-210
  198. 1283: PL-211
  199. 1284: PL-212
  200. 1285: PL-213
  201. 1286: PL-214
  202. 1287: PL-215
  203. 1288: PL-216
  204. 1289: PL-217
  205. 1290: PL-218
  206. 1291: PL-219
  207. 1292: PL-220
  208. 1293: PL-221
  209. 1294: PL-222
  210. 1295: PL-223
  211. 1296: PL-224
  212. 1297: PL-225
  213. 1298: PL-226
  214. 1299: PL-227
  215. 1300: PL-228
  216. 1301: PL-229
  217. 1302: PL-230
  218. 1303: PL-231
  219. 1304: PL-232
  220. 1305: PL-233
  221. 1306: PL-234
  222. 1307: PL-235
  223. 1308: PL-236
  224. 1309: PL-237
  225. 1310: PL-238
  226. 1311: PL-239
  227. 1312: PL-240
  228. 1313: PL-241
  229. 1314: PL-242
  230. 1315: PL-243
  231. 1316: PL-244
  232. 1321: PL-301
  233. 1322: PL-302
  234. 1323: PL-303
  235. 1324: PL-304
  236. 1325: PL-305
  237. 1326: PL-306
  238. 1327: PL-307
  239. 1328: PL-308
  240. 1329: PL-309
  241. 1330: PL-310
  242. 1331: PL-311
  243. 1332: PL-312
  244. 1333: PL-313
  245. 1334: PL-314
  246. 1335: PL-315
  247. 1336: PL-316
  248. 1337: PL-317
  249. 1338: PL-318
  250. 1339: PL-319
  251. 1340: PL-320
  252. 1341: PL-321
  253. 1342: PL-322
  254. 1343: PL-323
  255. 1344: PL-324
  256. 1345: PL-325
  257. 1346: PL-326
  258. 1347: PL-327
  259. 1348: PL-328
  260. 1349: PL-329
  261. 1350: PL-330
  262. 1351: PL-331
  263. 1352: PL-332
  264. 1353: PL-333
  265. 1354: PL-334
  266. 1355: PL-335
  267. 1356: PL-336
  268. 1357: PL-337
  269. 1358: PL-338
  270. 1359: PL-339
  271. 1360: PL-340
  272. 1361: PL-341
  273. 1362: PL-342
  274. 1363: PL-343
  275. 1364: PL-344
  276. 1365: PL-345
  277. 1409:     BGOPN.DIB SCNWIN:ITEM:    BGOPN.DIBPICT
  278.  
  279. Fonts
  280. -----
  281. Osaka
  282.